home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8607.d64 / axel f. (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  602b  |  24 lines
  1. 10 A=A+1
  2. 20 IFA=1THENLOAD"AXEL F./I",8,8
  3. 100 SYS64789
  4. 110 L1=54272:H1=L1+1:V1=L1+4
  5. 150 POKE V1+1,9:POKE V1+2,9
  6. 160 POKE53280,6:POKE53281,6
  7. 174 SYS39242
  8. 175 PRINT"[147]"TAB(8)"[154]>> PART FROM AXEL F. <<"
  9. 176 PRINTTAB(8)"RPS-RHYTHM + BASIC-BASS"
  10. 178 IFPEEK(250)<7GOTO178
  11. 179 IFPEEK(2)GOTO179
  12. 202 IFZ=25THENRESTORE
  13. 205 READH,L,S
  14. 210 POKEH1,H:POKEL1,L:POKEV1,32:POKEV1,33
  15. 220 SYS39317,S
  16. 230 Z=Z+1:IFZ<50GOTO202
  17. 250 IFPEEK(249)<15GOTO250
  18. 290 SYS64789
  19. 999 :
  20. 1000 DATA2,231,32,5,207,24,5,45,16,5,45,8,4,90,16,5,45,16,5,207,16,2,231,32
  21. 1003 DATA5,207,40,5,207,8,4,90,16,5,45,16,5,207,16,2,78,32,4,156,24,5,45,16
  22. 1006 DATA 5,45,8,4,90,16,5,45,16,5,207,16,5,207,72,5,45,8,4,90,16,3,224,16
  23. 1010 DATA3,116,16
  24.